home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / patch / WHDIGamesA-B.lzh / Academy.lha / AcademyHD / Install < prev    next >
Text File  |  1999-11-29  |  2KB  |  134 lines
  1. (set #sub-dir "data")        ;sub directory containing data files
  2. (set #readme-file "Academy.readme")    ;name of readme file
  3.  
  4. (procedure P_chkrun
  5.   (if
  6.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  7.     ("")
  8.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  9.   )
  10. )
  11.  
  12. (procedure P_disk
  13.   (askdisk
  14.     (dest #AD_disk)
  15.     (prompt ("\nInsert Disk \"%s\" in any drive !" #AD_disk))
  16.     (help @askdisk-help)
  17.   )
  18. )
  19.  
  20. (if
  21.   (exists #readme-file)
  22.   (if 
  23.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  24.     ("")
  25.     (run ("SYS:Utilities/More %s" #readme-file))
  26.   )
  27. )
  28.  
  29. (set #program "WHDLoad")
  30. (P_chkrun)
  31.  
  32. (set @default-dest
  33.   (askdir
  34.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  35.     (help @askdir-help)
  36.     (default @default-dest)
  37.     (disk)
  38.   )
  39. )
  40. (set #dest (tackon @default-dest @app-name))
  41. (if
  42.   (exists #dest)
  43.   (
  44.     (set #choice
  45.       (askbool
  46.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
  47.         (default 1)
  48.         (choices "Delete" "Skip")
  49.         (help @askbool-help)
  50.       )
  51.     )
  52.     (if
  53.       (= #choice 1)
  54.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  55.     )
  56.   )
  57. )
  58. (makedir #dest
  59.   (help @makedir-help)
  60.   (infos)
  61. )
  62.  
  63. (copyfiles
  64.   (help @copyfiles-help)
  65.   (source ("%s.slave" @app-name))
  66.   (dest #dest)
  67. )
  68.  
  69. (if
  70.   (exists ("%s.newicon" @app-name))
  71.   (set #icon
  72.     (askchoice
  73.       (prompt "\nWhich icon do you like to install ?\n")
  74.       (default 0)
  75.       (choices "Normal" "NewIcon")
  76.       (help @askchoice-help)
  77.     )
  78.   )
  79.   (set #icon 0)
  80. )
  81. (select #icon
  82.   (set #icon ("%s.inf" @app-name))
  83.   (set #icon ("%s.newicon" @app-name))
  84. )
  85. (copyfiles
  86.   (help @copyfiles-help)
  87.   (source #icon)
  88.   (newname ("%s.info" @app-name))
  89.   (dest #dest)
  90. )
  91. (if
  92.   (exists #readme-file)
  93.   (copyfiles
  94.     (help @copyfiles-help)
  95.     (source #readme-file)
  96.     (dest #dest)
  97.   )
  98. )
  99. (if
  100.   (exists ("%s.info" #readme-file))
  101.   (copyfiles
  102.     (help @copyfiles-help)
  103.     (source ("%s.info" #readme-file))
  104.     (dest #dest)
  105.   )
  106. )
  107.  
  108. (if
  109.   (= #sub-dir "")
  110.   ("")
  111.   (
  112.     (set #dest (tackon #dest #sub-dir))
  113.     (makedir #dest
  114.       (help @makedir-help)
  115.     )
  116.   )
  117. )
  118.  
  119. (copyfiles
  120.   (help @copyfiles-help)
  121.   (source ("OSEmu.80000"))
  122.   (dest #dest)
  123. )
  124.  
  125. (set #AD_disk "phantasm")
  126. (P_disk)
  127.  
  128. (copyfiles
  129.   (help @copyfiles-help)
  130.   (source ("%s:" #AD_disk))
  131.   (dest #dest)
  132.   (all)
  133. )
  134.